W tym przyk│adzie tabela Zam≤wienia jest wykorzystywana do obliczenia przeciΩtnego kosztu frachtu dla tych zam≤wie±, dla kt≤rych koszty te przekroczy│y 100 dolar≤w.
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub AvgX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Oblicz przeciΩtny koszt frachtu dla tych
' zam≤wie±, dla kt≤rych ten koszt przekroczy│
' 100 dolar≤w.
Set rst = dbs.OpenRecordset("SELECT Avg(Fracht)" _
& " AS [PrzeciΩtny fracht]" _
& " FROM Zam≤wienia WHERE Fracht > 100;")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu
' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt
' Recordset i wymagan╣ szeroko£µ pola.
WyliczPola rst, 25
dbs.Close
End Sub